leiksk_svfel <- read_excel("tenging-leikskolaraa.xlsx", sheet = "Stöðugildi",
range = "F8:X13", col_names = as.character(2002:2020)) |>
mutate(stadur = c("Reykjavík",
"Kópavogur",
"Seltjarnarnes",
"Garðabær",
"Hafnarfjörður",
"Mosfellsbær")) |>
pivot_longer(c(-stadur), names_to = "ar", values_to = "stodugildi") |>
inner_join(
read_excel("tenging-leikskolaraa.xlsx", sheet = "Rekstur",
range = "F8:X13", col_names = as.character(2002:2020)) |>
mutate(stadur = c("Reykjavík",
"Kópavogur",
"Seltjarnarnes",
"Garðabær",
"Hafnarfjörður",
"Mosfellsbær")) |>
pivot_longer(c(-stadur), names_to = "ar", values_to = "rekstur"),
by = c("stadur", "ar")
) |>
inner_join(
read_excel("tenging-leikskolaraa.xlsx", sheet = 3,
range = "E8:W13", col_names = as.character(2002:2020)) |>
mutate(stadur = c("Reykjavík",
"Kópavogur",
"Seltjarnarnes",
"Garðabær",
"Hafnarfjörður",
"Mosfellsbær")) |>
pivot_longer(c(-stadur), names_to = "ar", values_to = "heilsdagsigildi"),
by = c("stadur", "ar")
) |>
inner_join(
read_excel("tenging-leikskolaraa.xlsx", sheet = "Fjöldi",
range = "F8:X13", col_names = as.character(2002:2020)) |>
mutate(stadur = c("Reykjavík",
"Kópavogur",
"Seltjarnarnes",
"Garðabær",
"Hafnarfjörður",
"Mosfellsbær")) |>
pivot_longer(c(-stadur), names_to = "ar", values_to = "fjoldi_barna"),
by = c("stadur", "ar")
) |>
mutate(ar = parse_number(ar))
leiksk_einka <- read_excel("tenging-leikskolaraa.xlsx", sheet = "Stöðugildi",
range = "F24:X27", col_names = as.character(2002:2020)) |>
mutate(stadur = c("Reykjavík",
"Kópavogur",
"Garðabær",
"Hafnarfjörður")) |>
pivot_longer(c(-stadur), names_to = "ar", values_to = "stodugildi") |>
inner_join(
read_excel("tenging-leikskolaraa.xlsx", sheet = 3,
range = "E23:W26", col_names = as.character(2002:2020)) |>
mutate(stadur = c("Reykjavík",
"Kópavogur",
"Garðabær",
"Hafnarfjörður")) |>
pivot_longer(c(-stadur), names_to = "ar", values_to = "heilsdagsigildi"),
by = c("stadur", "ar")
) |>
full_join(
read_excel("tenging-leikskolaraa.xlsx", sheet = "Fjöldi",
range = "F23:X27", col_names = as.character(2002:2020)) |>
mutate(stadur = c("Reykjavík",
"Kópavogur",
"Garðabær",
"Hafnarfjörður",
"Mosfellsbær")) |>
pivot_longer(c(-stadur), names_to = "ar", values_to = "fjoldi_barna"),
by = c("stadur", "ar")
) |>
mutate(ar = parse_number(ar)) |>
replace_na(list(fjoldi_barna = 0))